<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admenvcreer.php,v $ 
 * $Date: 2006/03/04 15:24:35 $ 
 * $Revision: 1.3 $ 
 * 
 * ********* CVS HEADER ********* 
 */
global $rportalconstants;
$L_modules = '';
$L_base_env = get_env_path();

require_once($L_modules . get_path_module("fonctions.environnement"));

if (!isset($nom) || ($nom=="")) {
	rportalerreur("Nom d'environnement invalide.","?op=");
}
if( (strpos($nom,'..') === false) && 
	(strpos($nom,'/') === false) ) {
} else {
	rportalerreur("Nom d'environnement invalide.","?op=");
}

$L_generer = false;
if (isset($generer)) {
	$L_generer = true;
}
//rportalerreur("Generer '". $nom . "' = " . $L_generer,"?op=admenvliste");

/* Creation automatique */
$L_description = "Environnement g&eacute;n&eacute;r&eacute; automatiquement.";
$L_accueil = $rportalconstants->get_value("RPORTAL","environnement.home.default");
$L_newId = creer_environnement($nom,$L_description,$L_accueil);

/* Chargement du fichier de sauvegarde */
$L_env_filename  = $rportalconstants->get_value("RPORTAL", "environnement.filename.prefix");
$L_env_filename .= "." . $nom;
$L_env_filename .= $rportalconstants->get_value("RPORTAL", "environnement.filename.extension");

$L_filename = $L_base_env.$nom."/".$L_env_filename;

if (!file_exists($L_filename)) {
	rportalerreur("Fichier de sauvegarde non existant : '$L_filename'", "?op=admenvliste");
}

$L_modif = "Cr&eacute;ation automatique de l'environnement.";
charger_environnement($L_filename, $L_newId, $nom, $L_modif);
$L_location = "?op=admenvmod&argid=".$L_newId;

if ($L_generer) {
	/* Generer l'environnement */
	$L_location = "?op=admenvliste";
	generer_environnement($L_newId);
}

header("Location: " . $L_location);
exit;
?>